(message-yank-original): Fix bug:

Don't switch point and mark unnecessarily.

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 5bbb565dd7f07c24b31a47a9a3dcf1f6899c74c9..305d64a9af32641e60f81a613cfac566908b758b 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -3349,7 +3349,8 @@ prefix, and don't delete any headers."
                   (point)))
       (unless arg
        (funcall message-cite-function))
-      (message-exchange-point-and-mark)
+      (unless (< (point) (mark-marker))
+        (message-exchange-point-and-mark))
       (unless (bolp)
        (insert ?\n))
       (unless modified